home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / cw boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  815b  |  23 lines
  1. 10 poke53280,0:poke53281,0:printchr$(147)chr$(14)chr$(8)
  2. 20 gosub61000
  3. 22 poke214,9:print:printtab(12)"[159][195][201][214][201][204] [215][193][210] [204][197][193][196][197][210][211]"
  4. 24 printtab(10)"[154][193] [208]ictorial [215]ho's [215]ho"
  5. 30 print"[144]load"chr$(34)"cw leaders"chr$(34)",8"
  6. 40 print"run"
  7. 50 poke631,13:poke632,13:poke633,13:poke198,3
  8. 60 end
  9. 61000 poke214,15:print
  10. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  11. 61120 print"  [152]                                    "
  12. 61130 print"                                      "
  13. 61140 print"                                      "
  14. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #59     "
  15. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  16. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  17. 61180 print"                                      "
  18. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  19. 61200 au$="[195][201][214][201][204] [215][193][210] [204][197][193][196][197][210][211]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  20. 61210 au$="by [196]allace [204]. [205]eehan (c) 1989":poke214,18:print
  21. 61220 printspc(20-len(au$)/2)"[152]"au$""
  22. 61230 return
  23.